;;;; Created on 2011-04-27 23:00:55

;11.1
(defun it-member (x lst)
  (dolist (y lst)
    (if (equal x y)
        (return T)
        ) 
    )
  )

;11.3
(defun check-all-odd (lst)
  (dolist (x lst T)
    (if (not (oddp x)) (return nil))
    )
  )

;11.3
(defun it-length (lst)
  (let ((counter 0))
    (dolist (x lst)
      (setf counter (1+ counter))
      )
    counter
    )
  )